home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 90 / CD Actual 90.iso / Software3D / VirtualLight / VLight1.3win32.exe / Examples / Level2 / vlight.vs < prev   
Encoding:
Text File  |  2002-10-07  |  876 b   |  42 lines
  1. ReadArchive "statics.vib"
  2.  
  3. Declare glass_R = Shader [ FunctionalSurface [
  4.    Color '0,0,0'
  5.    Ka 0.025
  6.    Kd 0.0
  7.    Ks 0.25
  8.    Kt(0.98*|N . I|, 1.4, '1,0,0')
  9.    Kr 0.1
  10.    BlinnSpecularBRDF 10
  11.    Caustics 0.45
  12.   ]
  13. ]
  14.  
  15. Declare glass_G = Shader [ FunctionalSurface [
  16.    Color '0,0,0'
  17.    Ka 0.025
  18.    Kd 0.0
  19.    Ks 0.25
  20.    Kt(0.98*|N . I|, 1.4, '0,1,0')
  21.    Kr 0.1
  22.    BlinnSpecularBRDF 10
  23.    Caustics 0.45
  24.   ]
  25. ]
  26.  
  27. Declare glass_B = Shader [ FunctionalSurface [
  28.    Color '0,0,0'
  29.    Ka 0.025
  30.    Kd 0.0
  31.    Ks 0.25
  32.    Kt(0.98*|N . I|, 1.4, '0,0,1')
  33.    Kr 0.1
  34.    BlinnSpecularBRDF 10
  35.    Caustics 0.45
  36.   ]
  37. ]
  38.  
  39. Declare checker_map = SpectrumOfColors( [0.0, '0.1,0.1,0.1', 0.5, '0.1,0.1,0.1']
  40.                                         [0.5, '1,1,1', 1.01, '1,1,1'] )
  41.  
  42. Declare BWchecker = Shader [ FunctionalSurface [ Kd 0.95 Color checker_map[Checker] ] ]